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FACILITY: 


Linked with VMB.EXE - part of t 
bootstrap module for VAX 11/780 


ENVIRONMENT : 


Runs at IPL 31, kernel mode, memory management is OFF, IS=1 
(running on interrupt stack), and code must be PIC. 


he 
hardware. 


FUNCTIONAL DESCRIPTION: 


This routine is 11/780 specific and 

determines how many memory controllers are on the system, 
where they are, how much memory they control, which pages 
of that aqaory are present (and good). Then the routines 

set bits in the PFN bitmap to represent each present (and 
good) page of memory. 
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As a side effect, the routines store the type of adapter located 
at each bus slot in the RPB. 


INPUTS: 
- address of Ist are configuration code field 


RS 
R? - address of the SC 
R11 - address of the RPB 
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IMPLICIT INPUTS: 
The positions on the 11/780 syst m bus are called NEXUSes, and 
are identified by TR numbers 0-15. Although conventions place 
pe controllers at fixed TR numbers, the software must 
identify the adapter code in each NEXUS device's configuration 
register to decide what the adapter or controller is. 
If a NEXUS has a readable configuration register, the register 
contains the adapter code in the lower byte. If the 
configuration register is of a memory controller, the adapter 
code matches an entry in the table MEMTYP (see table in code 
below). 
Memory controller registers also contain 
the size of the memory in either 128-page or 2048-page units 
the starting page number / 128 
a bit indicating if the memory is externally interleaved or not 
OUTPUTS: 


R7, RB, R11, and SP are preserved 
ALC others (including AP and FP) are altered 


IMPLICIT OUTPUTS: 
The PFN bitmap is modified to describe all of physical memory. 
RPBSL_PFNCNT stores the number of pages of physical memory. 
ALL single parity errors in memory are cleared. 


RPBSB_CONFREG describes each NEXUS on the system bus with an 
adapter type code. 


AUTHOR: 
C. A. Samuelson, creation date 24-April-1981 
REVISION HISTORY: 
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00 
, V03-004 RNGO004 Rog Senache 07-Jul-1983 
Add support for MS/80-H memory arrays. | 
0 v03-003 TCM0003 rudy C. Matthews 27-Apr-1983 . | 
Change sense of CRDTEST flag from an enable to an inhibit, so 


that pages with CRD errors are removed by default. 


vO3-002 TCMO002 Teudy C. Matthews 26-Jan-1983 
Add support for RPBSV_CRDTEST flag that speci ties that 
pages with CRD errors be removed during the memory test. 


v03-001 KoM0078 Kathleen D. Morse 15-Mar-1982 
Add_RPBSV_FINDMEM flag and Logit. that allows the 
11/782 installation to use MA780 memory instead of 
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MS780 memory. 


v02-003 PHLO012 rH. Li 
Change PSECT to Py 
can overlay when it reads i 


v02-002 pacer Peter H. Lipm 
Use new common test memory 


:17 VAX/VMS Macro v04 38° 
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pman 04-Aug-1981 


: “this code into an area that VMB 


n the secondary boot. 


Toes routine soostests MEM. 


Fix test for MS780C controller to use right mask. 
Eliminate use of CPU dependent MAX_PGS parameter. 


v02-001 TCMO0001 udy ¢ 
Add support for io 1/780 


Matthews 
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BIMEM780 - Configure and Test 11/780 Memor 15-SEP-1984 23:42:17 pales Macro V04- Page 
v04-000 Declarations 278Eb= 1383 33° :10 feoors. SRCJB OuLarad MAR 31 ° 
} ¢ -SBTTL Declarations 
! § DEFAULT DISPLACEMENT, WORD 
138 ; 
133 3; Macros to describe VMS data structures 
141 ° 
14 MPDEF g m dump file header definitions 
33 128 SLOTBODEF ; 117780 definitions 
000 144 SMPMDEF 3; Multiport memory register definitions 
888 145 SNDTDEF 3 Nexus device types 
138 PRDEF ; Processor registers 
$4 14 SRPBDEF ; Restart parameter block 
00 138 
000 149; 
000 150 ; Macros 
000 13 3 
000 1 § 
000 15 -MACRO ERROR,STR ; Outputs an error string to the 
464 154 SBW ERROUT ; console terminal. 
000 155 eASCIZ STR 
434 136 NDM ERROR 
000 15 
00000000 158 -PSECT YBTMEM,LONG 
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BIMEM7: = Configure and Test 11/780 Memor 15-SEP-1984 23:42:17 VAX/VMS Macro V04- Pa 
F0ee000- CHEERMERTBOe Tdentity 117780 memory  aasepayoee S8:68:10 Leoore smeiermemsan man:1 2% (3) 
16 -SBTTL CHECKMEM_780, Identify 11/780 memory 
18 ++ 
184 ; CHECKMEM_780, Locate and test memory for 11/780 
166 :-- 
i 
169 ; The table below describes the 4 valid types of memory setups on 
0 i tthe 47780" : 4; -naear 
1 _ 
1% MEMTYP: 
08 0 174 -BYTE NDTS_MEM4NI : 4K = not interleaved 
09 +f 175 ~BYTE NDTS_MEMGI : 4K - interleaved 
10 00 § 176 -BYTE NDTS_MEMI6ONI 3; 16K = not interleaved 
11 38 17 -BYTE NDTS_MEM161 : 16K = interleaved 
68 04 178 -BYTE NDTS_MEM64NIL : 64K = non-interleaved lower 
69 0005 17 BYTE NDTS_MEMO64EIL 3 64K - external iy interleaved 
6A Bn8 180 -BYTE NOTS_MEM64NIU : 64K = non-interleaved upper 
68 000 181 -BYTE NDTS_MEM64EIU 3: 64K = externally interleaved 
6c 008 1 ¢ -BYTE NDTS_MEM641 ; 64K = internally interleaved 
0 tH 1 -BYTE NDTS_MEM2S6NIL : 256K = non-interleaved lower 
71 A 13 -BYTE NDTS_MEM2S56EIL : 256K = externally interleaved 
72 0008 185 -BYTE NDTS_MEM2S6NIU : 256K - non-interleaved upper 
7 4 196 -BYTE NDTS_MEM2S6EIU : 256K - externally interleaved 
74 944 + t4 -BYTE NDTS_MEM2561 : 256K - internally interleaved 
0000000E 443 13 MEMTYPCNT = ,-MEMTYP ; Number of memory types. 
3008 191 SHRMEMTYP: 
40 OO0E 19 -BYT NDT$_MPMO 3; Multiport memory (port #0) 
41 QOOF 19 -BYTE NDTS_MPM1 3; Multiport memory (port #1) 
$s 010 194 -BYTE NDTS_MPM ; Multiport memory (port *3) 
4 011 195 -BYTE NDOTS_MPM : Multiport memory (port #5) 
00000004 3 138 SHRMEMTYPCNT = .-SHRMEMTYP 
00000000 iH 138 BASE _MA780: 0 ; Base at which MA780's are placed 
00000000 O16 39 TOTAL MA780: 0 ; Total MA780 memory in bytes 
1A : MEM_CURADR: > Array of current memory adr ranges 
0000005A 1A -BLK <8*8> ; Max of 8 memory controllers allowed 
SA 4 MEM_F INALADR: 3; Array of desired memory adr ranges 
0000009A Q05A 5 i <8*8> 3; Max of 8 memory controllers allowed 
9A Be MEM_TR_MTYPE: ; Array of memory TRs and corresp type 
O00000AA tw 4 -BLKB <2*8> ; Max of 8 memory controllers allowed 
Aa 09 ; 
AA 10 ; Start testing NEXUSes to find adapters. First, save the stack position 
~ 12 3; so it can be restored after a machine check. 
AA 213° 
* 13 CHECKMEM_780: : 
5c }6.10~—ts«é AA 16 MOVL #10780$AL_NNEX,AP ; Set up NEXUS loop counter. 


a 


a ———— _ a 
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BIMEM7 - Configure and Test 11/780 Memor 15-SEP-1984 23:42:17 VAX/VMS Macro V04é- Page 
v06 CHECKMER PRO. ddentity 11/7B0 memory  aaSeP-19BG S850S:10 Ladovesmesomeureo mar:1 "2% (f, 
5D SE 00 A 18 MOVL SP FP 3; Save current top of stack. 
B 19 ; 
Y ; Set up the physical address of the 1st NEXUS on the system bus. 
546 01 =D 9 sey ROTL #29,,#1,R4 3; Ist NEXUS is at *x20000000. 
0B4 S$; 
r § ; Point to first entry in the memory description List in the RPB. 
SA 008C CB 9E 3 8 ; MOVAB RPBSL_MEMDSC(R11),R10 ; Set pointer to memory description List 
089 0; 
0B9 1 ; During this memory locate and test loop, the following registers are 
+94 § : used: 
4094 4: Re - value read from the configuration register 
089 $3 R = maximum number of pages possible 
0089 $ 3 - number of pages in the next controller 
+94 3 RG - eo of the configuration register on the current 
0088 9: RS - address of next byte in RPB adapter type table 
089 40 ; R7 - address of the SC 
se 41; R9 - starting page number for the next controller 
089 4g 3 R10 - address of the memory description List in RPB (pagcnt & pfn) 
0089 43; R11 - address of the RPB 
0089 44; AP - nexus loop counter 
+4 $2 ; FP - saved SP; used to restore stack position after machine check 
0089 “9 ; Set up a machine check fault handler to gain control if the hoes 
se 4 $8 ; addresses a non-existent configuration register (an empty NEXUS) or 
089 49 ; gets a serious parity error on a page. Then read the configuration 
+94 29 3; register. 
0089 252° 
0B9 33 TRY_NEXUS_780: ; Memory locate and test loop. 
85 94 00B9 54 cCRB (R5)+ 3; Assume nothing on NEXUS. 
04 a7 O17D'CF 9E 008B 255 MOVAB DO_NEXT_780+1,4(R7) : Set up fault handler (+1 
00C1 2$ 3; forces exception on the 
0C1 2 : interrupt stack). 
52 64 00 SH 38 MOVL (R4) ,R2 : Get CR at current NEXUS. 
C4 60 ; 
be4 ef 3; Execution continues here if the configuration register is present. 
Bet $¢ 3; Test to see what kind of adapter or memory controller this is. 
C46 864 
FF AS 52 90 C4 65 MOVB R2,-1(R5) ; Store adapter code in RPS. 
30 AB 98 EO 00C8 66 . BBS #RPBSV_MPM,RPBSL_BOOTRS(R11) ,- 
cc 6 CHK ; Br if multi-proc boot 
FF2D CF OF 52 3A Cc o8 LOCC R2, BMEMTYPCNT ,MEMTYP : qonery controller here? 
4F 13 : $) BEQL CHK_SHRMEM ; No. Go check for shared memory. 
D 71; 
3 i ; Find out whether the memory addresses are within legal bounds. If 
D5 73 ; so, compute the starting page number and the number of pages on the 


rere l 
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v04 CHECKER P8Oe faenel ty 110780 monary 2rSECrTSRS 88:68:15 HEROES Resse aseo mans: 88" cf, 
74 ; controller. 


50 04 A4 00 MOVL 4(R4) RO : Get starting address Seg toter. 
59 0 3 F fr EXTZV #15,#13,R0,R9 ; story ng page _number/1 
9 7 78 ASHL #7,R9,R9 ; Multiply by 1 : = page number. 
53 2 06 EF EXTZV = #9,#6,R2,R3 ; Get size in 128 or 2048 page units. 
i) INCL R 3; Convert size-1 to size. 
50 3 MOVL 4 80 : Regune 128 page units (MS780C). 
52 €0 8F B1TB #*XxE0,R2 3; MS780C controller? 
5 MOVE #11-RO Sites cosine: its (MS780E) 
3: Else use age units e 
53 38 8 30$: ASHL R a3 3 3; Multiply to finds of pages present. 


0,R3,R 
ASSUME DMP$V_TR EQ 34 
ASSUME DMPSS-TR EQ 


VAX 11/780 Interleaved Memory (controller = MS780C) 


When two memories are interleaved, they must be an even-odd pair of 

TR numbers. Both memories have the same starting physical address. VMB 
doubles the size of the first memory and checks all the pages as if 

they belonged to the first controller. When the second controller 

is scanned, VMB realizes that it has already checked the corresponding 
memory pages and skips to the code that finds the next CSR. In the RPB, 
there is only one memory descriptor initialized. It contains the even 
numbered TR #, double the memory page count, and the common base PFN. 


VAX 11/780 Interleaved Memory (controller = MS780E) 


The above paragraph also applies to the MS780E controller, with one 
exception: the MS780E controller stores the entire size of the interleaved 
memory in the Senery give field of the cont hquret tes regtater. not half the 
size. Also, the MS/80E supports two forms of interleav ngs external and 
internal. fhe internal interleaving requires no special VMS agt ion: the 
code eee taken is the same as for non-interleaved memory. MS780E external 
interleaving shares a code path with MS780C interleaved memories. 


; Branch if no interleaving. 
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PIPUNIPINIPINININD 8 8 3 = | MQOOOOGDOOOO OOO 0000 000000909 6009090909 0009 SII 
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Oc 52. «ED R2,10$ 3 
7D 5C 3 0 BLBS Ae PO NEXT _780 : Br 2nd of interleaved TR# pair. 
52 €0 8F 0 BITB #*XE0,R 3 S780C ggatepi toc? 
93 is 1 BNEQ 3 No; MS780E already has correct size. 
53 53 CO 01 ADDL oR ; MS780C requires page count doubled. 
8A 53 00 01 108: MOVL R35, (R10)+ : Save # of pages in this memory 
FF AA 54 04 gp EF 01 EXT2V -#18,84,R4,-1(R10) : Save TR number for this memory 
A 59 00 Hy peda 739 RO, (R10)+ : Save starting PFN for this memory 
04 AZ O0425'CF GE 0114 “ -MOVAB PAGE_MCHECK_780+1,4(R7) ; Set page skipping handler (+1 
11A 3; for on interrupt stack). 
52 0402'°CF 43 11A MOVAB TEST QUAD 780,R2 3; Routine to test one page 
repr 3 11F BSBW 8 BOOSTEST ~t : Test the specified range of PFN's 
5 11 0122 BRB DO_NEXT_78 
124 CHK_SHRMEM: 
FEE CF 04 3 + 124 LOCC BE SIRE DT IPCI NENT YP : Is this a shared monery} 
3 : ° BEQL DO_NEXT_780 3 No. Go look for another NEXUS. 
64 004000 ah 1 BISL #*°X00400000 .MPMSL_CSR(R4) ; Clear power-up bit 
04 AG PPo0000e ef ‘8 1 : BISL #°XFF OOOO00-MPMSt “ER CRE) ; Clear error bits 
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FF AA 54 4 


«ALIGN 


DO_NEXT_780: 
MOVL 
MTPR 
MOVAB 
SOBGTR 


BBCC 
ay 


MP 
BLSSU 


10 3 
52 008C CB. 1 
00000400 8F 


OOO1'CF DE 
8A rt: 

5 

FFOE = 31 


04 A7 


: 
° 
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NEXT_NEXUS 780: 


15-SEP-1984 23:42:17 VAX/VMS Macro V04- Page 
arSEE TERS S8i68:15 PARC VeS Masco et CO ae:1 | P89 
a*x MPMSL_SR(R4) ; Clear error bits 
prety el ERR(R4) “re rror bits 

a ief Invalidation Control Register 
0 INV. wd #MPMSS_ inv. STADR,RS,RO ; Starti ing address 


Ae R onvert nA S art ng 
#MPMSV_INV_MEMSZ,#MPMSS_ iny “REMSL, R ag Bey stee 

Re one +e *so add one to count 
#9,R3,R3 i Multiply by {2 to compute # of pages 
R3, (RI0)+ : Save # of pages in this memory 
DMPSV_TR EQ 24 


ge TR number for this memory 
R9 sl + ve oer tie PFN for this menory 
#<RPBSM_MPM ! RPBSM _usenbns® - ; If multi-proc boot or MA78 
RPsst a R5(R11) ; memory ya as local meqory. 

: then go include it in bitma 
bo shear 780 :; Branch around bytes left ~“y SALIGN 


LONG 3; Longword-aligned handler. 


eon’ handler for non-existent configuration register, or unreadable 
; a sters, or a non-memory controller NEXUS device. Restore stack 
; nter, clear all errors, and try for another NEXUS if any remain. 


Skip to next NEXUS. 
Restore stack pointer. 
Clear any faults. 

Move to next 


IFS 
#0. FPR BERNEX(RG), RG NEXUS. 
If still a NEXUS, (oop. 


AP ,NEXT_REXUS_ 780 


: Check if there is sufficient memory to boot VMS. 


#RPBSV_F INDMEM,RPBSL peptascet ty Only check if requested 

#0,#24°RPBSL_MEMDSC (R11), Re n first memory 
2° #°x400 : Is ok at least 512 

tab MEM 3; Go try to find MA780 + ae instead 


> Reestablish the normal machine check fault handler. 


P_MCHK4+1,4(R7) 3; Reset SCB vector. 
)F : Indicate end of RPB memory descr List 
: Return to main routine. 


Extra label and branch here to loop back through the NEXUS testing 


3; Try the next NEXUS. 


TRY_NEXUS_780 ; Branch to top of loop. 


&; 
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FIND MEM = Locate MA memory and use i 4-SEP-1 BOOTS.SRC BTMEAPBO OMAR: 1 


1 83 ; ~SBTTL FIND_MEM = Locate MA780 memory and use it instead of MS780 
1AB y 3; This code assumes that VMB will be ene trots loaded into one memory 
1AB 91 ; and not across memory controllers, except for the case of interleaved 
i 35 : local memory. 
7 FE6B CF QE 108 3¢ FIND AER: MEM_CURADR,R7 Adr of old ph d 
2 3; Adr of o $s adr range arra 
4 FEA6 CF o9E 189 38 MOVAB MEM-FINALADR RS 3; Adr of new ohys adr rence array 
59 FEE1 CF 9E O18 9 MOVAB MEM TR_MTYPE,R 3; Adr of memory TR #s and corresp type 
5A oper CB 49E OIBA 398 MOVAB RPBSL_MEMDSC(R11) a0 ; Adr of mem dsc array (all controlters) 
55 009 8 —E O1BF 399 MOVAB RPBSB-CONFREG(R11),R5  ; Adr of nexus type codes 
C O01C4 ret CLRQ R 3: Init total MA memory and local memory 
6 D4 OIC 401 CLRL R : Init starting MA adr to 0 
1f8 408 108 
8A FFOOOO0O BF C 1C $38 BICL3 #*XFFOO0000,(R10)+,R4 ; Get count of pages in this memory 
_ 1D 405 BEQL ; Br if no more memories 
50 FF AA 9A OQ1D £06 MOVZBL <-1(R10),RO ; Get TR # for this memory 
89 50 106 40 MOVZBW RO,(R9)+ ; Remember TR # and assume local memory 
67 BA O09 7 109 408 ASHL #9, (R10)+, (R7) 3; Compute old starting phys byte adr 
54 54 09 78 O1DD 409 ASHL #9,R4,RS ; Compute count of bytes in this memory 
04 A7 67 54 C1 O1E1 410 ADDL3 4, (R7),4(R7) : Compute old ending phys byte adr 
04 A7 O07 O1E6 411 DECL 4(R7) 3; Make old ending adr exact to byte 
50 6540 9A O1E9 tig MOVZBL (R5)CROJ,RO 3; Get NEXUS type for this memory 
FEOD CF 50 3A Biep 41 LOCC RO, #MEMTYPCNT ,MEMTYP 3; Is this local memory? 
1 13° OF 414 BEQL 208 ; Br on no, assume it is MA780 memory 
68 «5 DO OS 415 MOVL R2, (RB) 3; Set new starting phys byte adr 
04 A8 68 #54 Ci O1F8 £1$ ADDL3 R4, (RB) ,4(R8) :; Compute new ending phys byte adr 
5 54 CO O1FD 41 ADDL R4,R2 3; Add mem size to local mem accum 
04 A 56 «(iD OSoe 418 CMPL R6,4(R7) : Does local memory extend beyond 8B? 
16 146 0206 419 BGTR 30 ; Br on no, Local mem < 
56 04 A7 01 C1 0206 420 ADDL3 #1,4(R7),R6 3; Get next adr after all local memory 
oo 7 © es : 1 208 BRB 30$ : Continue in common code 
FF Ad «6010S 90 0 0b 4 : MOVB #1,-1(R9) 3; Set MA780 indicator 
68 53 00 11 424 MOVL tO H : Set new starting phys byte adr 
AB 68 54 C1 0214 £425 ADDL3 R4,(R8),4(R8) 3; Compute new end ng phys byte adr 
53 54 CO 8 ? : § 30s ADDL R4,R3 3; Add mem size to MA780 mem accum 
04 AB D7 1C 428 DECL 4(R8) 3; Make new ending adr exact to byte 
57 08 ce 1F 429 ADDL #8,R7 ; Point to next old range 
58 08 ¢ 430 ADOL #8, R8 : Point to next new range 
Al 11 4 1 a BRB 10$ : Loop to do next memory 
FDEA CF 53 4 7 4 § MOVL R3, TOTAL_MA780 ; Remember total bytes of MA780 memory 
67 C C 434 CLRQ (R?) 3: End the old range array 
68 7C 435 CLRQ (R8) 3: End the new range array 
69 B84 2 $ CLRW (RI) 3 End the TR # and type List 
4 8 : Now check if all MA780 memory is where it should be for an 11/782. 
439 ; In other words, it starts at physical address 0 and each controller 
$29 3; is contiguous to the previous one. " cal memory will be at some 
rf z higher physical address than all MA780 memory. 
57 FOES CF 9E 128 MOVAB MEM_CURADR,R7 ; Adr of old phys adr range array 
P ; Adr of new phys adr range array 
58 FEIF CF 9€E 444 MOVAB MEM~F INALAOR R8 Adr of h d 
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FIND_MER = Locate nA780 memory and use i Pat 7 33:68:10 YedOTS: She IBTMLM?BO MAR; 1 . 
9E if $63 508 MOVAB MEM_TR_MTYPE,R9 3; Adr of memory TR #s and corresp type 
9 4 44 TSTB (R9) 3; Any more memories? 
1 4 £38 BEQL 70$ ; Br if no more memories 
E 4 4G BLBC 1(R9) ,60$ ; Br if this is local memory 
D1 024 430 CMPL  (R7),¢ : Is current phys adr the desired adr? 
\s 4¢ 45 BNEQ 80$ ; Br if memory phys adrs are not set up 
D 4 128 CMPL 4(R7) ,4(R8) i Is current phys adr the desired adr? 
12 2 $27 60s BNEQ 80$ ; Br if memory phys adrs are not set up 
C 5 455 ADDL #8,R7 ; Point to next old range 
C 28 $28 ADDL a Re 3 Point to next new range 
C B 4 ADDL #2,R ; Point to next memory TR and type 
11 3 438 va BRB 50$ : Continue with next memory 
31 8 $89 BRwW MA780_AT_O ; MA780 memory adrs already set ok 
8 6 186 3; Now set all the MA780 starting addresses to be contiguous 
6 465 ; above all local memory. Use the maximum of 8MB and what is currently 
6 464 ; being used for local memory. 
€3 ee bos 
9E 6 489 MOVAB MEM_FINALADR,R8 3; Adr of new phys adr range array 
9E 8 rts $08 908 MOVAB MEM_TR_MTYPE,R9 3; Adr of memory TR #s and corresp type 
9A 0 $8 £36 MOVZBL (R9),R3 ; Get TR # for this memory 
13 0 8 471 BEQL 110$ 3; Br if no more memories 
E9 027 $76 BLBC 1(R9) ,100$ : Br if this is local memory 
ci 0276 47 ADDL3 6, (RB) ,R4 : Get starting adr for this menory 
8 7A 474 ASHL #2.R4,R4 3; Compute stare ing adr bits for MA780 
D6 7E 475 INCL RS : Set enable bit for setting start adr 
78 80 $78 ASHL #13,R3,R3 : Compute TR offset part of contlr adr 
C8 0284 47 BISL #*x3006000C.R3 : Get controller register address 
dO 8 oe $78 1008 MOVL R4,(R3) 3; Set new starting adr for this memory 
CO O28E $30 ADDL #2,R9 : Point to next memory TR # 
CO 0291 481 ADDL #8 RB :; Point to next new range 
11 0 34 4¢ BRB 90$ ; Continue for next mem 
0296 484 ; Now move VMB into the MA780 memory at the lowest starting address. 
0296 48£ ; Then continue executing VMB in that memory so that the local memory 
0296 4 § 3 starting addresses may be changed. 
0596 488 i10s 
dO 36 é § VL R6,BASE_MA780 ; Remember this base address 
44 490 OVL #1, CONTINUE jnoex : Set continuation code index 
A 491 MOVAB START BOOT,R 3 Get physical addr of start of VMB 
§ A 136 SUBL #*x R ; Include the RPB 
at 49 MOVC3 #BOOTHIGH+*xX200,(RO).(R65 ; Move VMB/RPB into different memory 
1 0282 494 ADDL3 #*X200,R6,R ; Remember base address 
D O2BA 495 MOVG BSL_BOOTR (R11) RO : Reset register RO-R1 to boot value 
7D B 49 mova RPB$L_BOOTR2(R11),R 3 Reset register R2-R3 to boot value 
7D C Lg MOVa RPBSL_BOOTR4(R11) ,R4 ; Reset register R4-R5 to boot value 
D C6 49 MOVL  RPBSL-HALTCODE(R11),AP ; Reset register AP to boot value 
D CA 49 MOVL RPBSLTHALTPC(R11),R10 : Reset register R10 to boot value 
D C 200 MOVL  RPBSL“HALTPSL(R115,R11 ; Reset register R11 to boot value 
D D MOVL SP ; Reset register SP to point to RPB+200 
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ure and Test 1}/7e0 Memory 
= Locate MA7 


Jmp 
: CONT1_PATH:: 


- : Now move all local memory into the next 
TOTAL_MA780  edeneacae 
ORR ; 


— 
So 
wn 


20S: 
30$: 


ios: 


CONT2_PATH: : 


0 memory and use i 


START_BOOT_1(R8) 


MEM_FINALA 
MEM_TR_MTYPE,R9 


(RO) RB 
1(R9) , 30$ 
R6, (RB) RG 
#-1,R4,R4 
#13.R3,R3 
#°X20060004,,R3 
#°X4000,,R4 
R4, (R3) 

#4-R3 

(R$) .R2 

R 

(RB) ,4(R8) ,R1 
#2 R1,R1 
#°X2004,R3,R5 
RI. (RS) 
#°X100, (RS) 
#°x100, (R3) 


#2,R9 
#8.R8 
10$ 


#2, CONTINUE INDEX 


START BOOT ,RO 


#°xX200,R 
#8 THI GH+=*x200, (RO) 


START_BOOT_1(R8) 


15-SEP=1 
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Continue executing VMB in other memory 


8MB above the MA780 memory. 


; Get base adr for local memory 
Adr of new phys adr range array 


; Adr of memory TR #s and corresp type 


Get TR # for this memory 
Br if no more memories 


Get eserting adr for this memory 

Get right bits to write into register 
Compute TR offset part of contlr adr 
Get controller register address 

Set enable write to starting adr bit 
Set new starting adr for this memory 
Get adr of interleaved bits 

Branch if this controller is 

not interleaved 

Get # bytes of interleaved memory 
Round up to a page boundary 
Calculate base adr for second half 
of this memor 

Get address of second controller 

Set new starting adr for this memory 
Get adr of interleaved bits 

Turn off interleaving 


Turn off interleaving 
Point to next memory TR # 


Point to next new range 
Continue for next mem 


: Now move VMB back into Local memory, which is way up high now. 


Set continuation code index 

Get physical addr of start of VMB 
Include the RPB 

ve VMB/RPB into different memory 
Remember base address 

Reset register RO-R1 to boot value 
Reset register R2-R3 to boot value 
Reset register R4-R5 to boot value 
Reset register AP to boot value 

Reset register R10 to boot value 
Reset register R11 to boot value 
Reset register SP te point to RPB+200 
Continue executing VMB in other memory 
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59 ; 
? ; Now set MA780 memory to be contiguous, starting at physical address 0. 
6 MOVAB MEM_FINALADR,R ; Adr of new phys adr range array 
97 108 MOVAB MEM_TR_MTYPE,R ; Adr of memory TR #s and corresp type 
ee MOVZBL (R9),R3 3 Get TR # for this memory 
$6 BEQL WA780 AT 0 : Br no more memories 
6 BLBC 1(R9) 5208 : Br if this is local memory 
68 MOVL (RB) ,R4 ; Get starting adr for this memory 
é ASHL #2,R4,R4 ; Compute start ng adr bits for MA780 
9 INCL RG : Set enable bit for setting start adr 
7 SHL #13,R3,R3 ; Compute TR offset part of contlr adr 
i BISL #X6006000C .R3 : Get controller register address 
i 208 MOVL R4, (R35) : Set new starting adr for this memory 
75 ADDL #2,R9 3 Point to next memory TR # 
7 ADDL #8 ,R8 3; Point to next new range 
a4 RB 10$ ; Continue for next mem 
579 ; Now move VMB into the MA780 memory Sterting at physical address 0. 
580 ; This should be the correct memory to boot from, so re-execute 
28) ; VMB entirely over again now. 
334 MA780_AT_0: 
os MOVAB START_BOOT,RO 3; Get physical addr of start of VMB 
585 SUBL #°x200 : Include the RPB 
586 MOVC3 #BOOTHIGH+*X200,(RO),a#0'; Move VMB/RPB into different memory 
587 MOVQ RPBSL_BOOTRO(RIT) .RO 3; Reset register RO-R1 to boot value 
588 MOVQ RPB$L_BOOTR2(R11),R2 ; Reset register R2-R3 to boot value 
589 MOVQ RPBS$L_BOOTR4(R11) ,R4 3: Reset register R4-R5 to boot value 
590 BISW PaSm RS 3 Use MA78 menory only 
591 MOVL  RPBSL_RALTCODE(R11),AP ; Reset register AP to boot value 
232 MOVL RPBSLIHALTPC(R11),R10 ; Reset register R10 to boot value 
23 MOVL ares. HALTPSL(R115,R11 : Reset register R11 to boot value 
94 MOVL x200, : Set register SP to adr of RPB+200 
595 CLRL 0 3 Set physical adr of RPB in RPB 
596 JMP @#START_BOOT+*X200 ; Continue executing VMB in other memory 
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-SBTTL TEST QUAD_780 - Test a quadword of memory 


Functional Description: 

Test a page of 780 memory, 
Calling Sequence: 

JSB TEST_QUAD_780 
Inputs: 

RO = starting address to test 


Ri = Quad word iteration count (64) 
Ri1= Address of RPB 
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9 
6 
i 
605 
on8 
3 
8 i 
0 ery 
0 o1¢ 
ss ol 
8 8 oi? Outputs: 
040 $19 Returns via RSB if the entire page is OK 
8 8 918 Error exit via Machine Check code to BOOSPAGE_MCHECK 
0403 go) 
040 6 § TEST_QUAD_780: :; Test 1 quadword at a time. 
36 50 DA 040 6 MTPR RO, #PR$_SBIQC 3; Clear a quadword. 
BO B80 Di 0405 624 CMPL = (RO) +, (RO) + : Read both longwords, and 
040 625 3 advance to next quadword. 
Bish 
040 628 : If no gross errors occur in the clear to the quadword or in the 
040 629 ; subsequent read instruction, then execution continues below. Otherwise 
838 o39 3 execution goes to the fault handler -- PAGE_MCHECK_780. 
0408 632° 
F751 F5 040 635 SOBGTR R1,TEST_QUAD_780 :; Continue clearing unless done. 
0130 AB «O10~=CiCiéEW «= (040B S634 BBC Pa$v_CROTEST, - : Branch if CRD test not inhibited. 
0410 635 RPBSL_BOOTRS(R11),10$_—; 
05 pete O38 5$: 3; No CRD test; return. 
i O38 : Check to see if there were any CRD errors on this page. 
411 640 ios: 
7E 34 DB 0411 641 MFPR gens saree -(SP) ; Get SBI error register. 
34 6€ DA 0414 otg MTPR (SP) -#PRS_SBIER ; Clear errors just in case. 
8E 00004000 8F D3 417 64 BITL  #*x4000,(SP)+ : Check for CRD error. 
FO. OU 41 644 BEQL 3; Branch if no CRD errors occurred. 
05 "4 : ete BRB ERR_EXIT_780 : Else take error exit. 
4 64 
: £ o78 ALIGN LONG ; ALL handlers longword-aligned. 
r ? 620 ; Handler that gains control when a page has gross memory errors. 
424 652° 
424 re PAGE _MCHECK_780: ; Skip current page. 
30 00 DA 0424 654 MTPR #0,#PRS_SBIFS ; Clear error indicator. 
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5 ERR_EXIT_780: 
7. BOOSPAGE _MCHECK ; Back to common handler 
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BIMEM780 - Configure and Test 11/780 Memor 15-SEP-1984 :42:17 VAX/VMS Macro V04-00 Page 15 | 
Symbol table ° “ arSee TSBs S3:G8i15 HANAVES Macro ote ooman:1 28° 18), 
BASE_MA780 00000012 R RPBSL_BOOTR4 = Z 
BOOSPAGE _MCHECK eeeeeeee =X RPBS$L_BOOTRS = 
BOOSTEST_MEM aeeeener x RPBSL_HALTCODE z } 
BOOTHIGH aeeeeeee =X RPBSL_HALTPC = 0000001 
CHECKMEM_780 QOOO0AA RG RPBSL_HALTPSL = 00 14 
CHK_SHRMEM 38 124 R RPBSL_MEMDSC = 90 8 
T1_PATH 4 409 RG BSM_MPM = 00 
T2-PATH 0 A RG 0 RPBSM_USEMPM = 0000100 
CONT IRUE_ INDEX tereeeeer XK 0 RPBSV_CROTEST = 0000001 
$S_TR 2 9000 008 RPBSV_F INDMEM = 00 38 OE 
DMPS$V-TR = 00 1 PBSV-MPM = 00 B 
DO_NERT 780 38 7c R 9 SHRMEATYP $ 8 ER 02 
ERR_EXIT_780 $ 427 R SHRMEMTYPCNT = 4 
FINS MEM 000148 0 START_BOOT aeeeneee =X 03 
10780$AL _NNEX = 0000001 START Boot 1 eeereree = X 0 
10780$AL _PERNEX = 00002000 TEST_780 00000114 R 02 
MA780_AT_O QOO00SBC R f TEST QUAD 780 00000402 R 8s 
MEMTYP 444 R 0 TOTAC_MA780 00000016 R 0 
MEMTYPCNT = Q000000E TRY_NEXUS_ 780 00000089 R 02 
MEM_CURADR QOOO001A R 02 UNERP_MCHR aeneeeee =X 02 
MEM_F INALADR 0000005A R 02 
MEM TR_MTYPE QOO0009A R 02 
MPMSL_CR = 00000004 
MPMSL_CSR = 00000000 
MPMSL_ERR = 00000010 
MPMSL_INV = 0000000C 
MPMSL_SR = 44 4 
MPMSS_INV_MEMSZ = 0000000 
MPMSS_INV_STADR = 00000008 
MPMSV_INV_MEMSZ = 00000010 
INV_STADR = 00000014 
_AEM161 = 00000011 
NDTS$_MEM16NI = 00000010 
NDTS$_MEM256E IL = 00000071 
TS_MEM256E1U = 944 
NDT$_MEM2561 = 00000074 
TS_MEM256NIL = 44 44 99 
NDTS_MEM256NIU = 44 4 44 
NDTS_MEMG1 = 44 44 
TS_MEM4NI = 4444 3 
NDTS_MEM64E IL = 80 006 
NDTS$_MEM64E1U = 00068 
NDT$_MEM64 1 = 00 Bes 
NDTS_MEM64NIL 2 $ 36 
TS_MER64NIU = A 
TS_MPMO = 00000040 
NDTS_MPM1 = 00000041 
T$_ ‘ = 00 4 
TS_MPM cs 4 
NEXT_NEXUS 790 A&B R 0s 
PAGE-MCHECR_780 424 R 
PR$_SBIER = 4 
PRETSB10C : $ 
= 
RPBSB_CONF REG = 3 
RPBSL-BOOTR = 1¢ 
RPBS$L—BOOTR s 24 
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Psect. synopsis ° . 2rSEer TSBs S3:G81h PARC ES Ragco os OO nan. Page 16, 
Fecw er eoeaocecoonoe + 
! Psect synopsis ! 
¢oeravreenooesnonne e 
PSECT name Allocation PSECT No. Attributes 
4448 ( 8.3 0(¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$444 ¢ ( of 1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
0000042A ( 1066.) 02 ¢( 2.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC LONG 


+ + 
; Performance indicators H 


Page faults CPU Time Elapsed Time 


Initialization 38 00:00:00.09 00:00:00.90 
Command processing 132 Ba 88: 2-83 88 +88 45 
Pass 216 0:00:05.05 0:00:12.36 
Symbol table sort 0 00:00:00.51 00:00:00.71 
Pass 2 134 00:00:01.69 00:00:03.96 
Symbol table output 10 8806: 60°68 00:00:00.07 
Psect synopsis output 0:00:00.0 00:00:00.03 
Cross-reference output Ss et gh i Ses oS 
Assembler run totals 53 0:00:08.1 00:00:21.50 


The working set Limit was 1350 pages. 

29561 bytes (58 pages) of virtual memory were used to buffer _the intermediate code. 

There were 20 pages of symbol table space allocated to hold 379 non-local and 22 local symbols. 
657 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

15 pages of virtual memory were used to define 14 macros. 


$ooeccecceeooeoeecoocccosce$ 


: Macro Library statistics : 


Macro Library name Macros defined 


~$355$0UA 8: BOOTS .0BJ 1B00TS.MLB; 1 0 
“$255$DUA 8: SYS.OBJJLIB.MLB; 1 4 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 é 
TOTALS (all Libraries) 10 


435 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:B81TMEM780/0BJ=0BJ$:BTMEM780 MSRC$:BTMEM780/UPDATE=(ENHS :BTMEM780) +EXECMLS$/L1IB+L1B$:B00TS.MLB/LIB 
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